home *** CD-ROM | disk | FTP | other *** search
/ Australian Personal Computer 2002 November / CD 1 / APC0211D1.ISO / workshop / prog / files / ActivePerl-5.6.1.633-MSWin32.msi / _afbfcf38a942c84d3963750c0c381b63 < prev    next >
Encoding:
Text File  |  2002-06-17  |  550 b   |  25 lines
  1.  
  2. #include "zfstream.h"
  3.  
  4. int main() {
  5.  
  6.   // Construct a stream object with this filebuffer.  Anything sent
  7.   // to this stream will go to standard out.
  8.   gzofstream os( 1, ios::out );
  9.  
  10.   // This text is getting compressed and sent to stdout.
  11.   // To prove this, run 'test | zcat'.
  12.   os << "Hello, Mommy" << endl;
  13.  
  14.   os << setcompressionlevel( Z_NO_COMPRESSION );
  15.   os << "hello, hello, hi, ho!" << endl;
  16.  
  17.   setcompressionlevel( os, Z_DEFAULT_COMPRESSION )
  18.     << "I'm compressing again" << endl;
  19.  
  20.   os.close();
  21.  
  22.   return 0;
  23.  
  24. }
  25.